home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / lang / rexx / 2011 < prev    next >
Encoding:
Internet Message Format  |  1996-08-06  |  1.9 KB
  1. Path: news.itg.ti.com!usenet
  2. From: drupp@ti.com (Dave Rupp)
  3. Newsgroups: comp.lang.rexx
  4. Subject: Re: ftp script
  5. Date: 16 Apr 1996 15:19:38 GMT
  6. Organization: Texas Instruments
  7. Distribution: inet
  8. Message-ID: <4l0dqa$13e@dsk92.itg.ti.com>
  9. References: <DpxxG9.263@solair1.inter.NL.net>
  10. Reply-To: drupp@ti.com (Dave Rupp)
  11. NNTP-Posting-Host: drupp.itg.ti.com
  12. X-Newsreader: IBM NewsReader/2 v1.09
  13.  
  14. In <DpxxG9.263@solair1.inter.NL.net>, jwit00@solair1.inter.NL.net (J. de Wit) writes:
  15. >Hello,
  16. >
  17. >We haven a rexx script from which a ftp session is activated to another 
  18. >system. It looks likes this :
  19. >user
  20. >put myfile 
  21. >quit
  22. >
  23. >On the other system the account has no password or is empty.  Still rexx is prompting for a password. So the script can't be executed from batch.
  24. >What we want is rexx preventing from asking for a password, by example if it is possible to add a ctrl enter after the user has been entered ??
  25. >
  26. >Thanks in advance...
  27.  
  28. Here is a test OS/2 REXX script which worked using anonymous ftp to an OS/2 ftp
  29. server with no password.
  30.  
  31.  
  32. /* REXX */
  33. trace off;
  34. rc = 0;
  35. FTPERRNO = '';                                         /* init variable     */
  36.  
  37. rc = RxFuncAdd("FtpLoadFuncs","rxFtp","FtpLoadFuncs")  /* Load REXX FTP     */
  38. rc = FtpLoadFuncs()                                    /* load ftp          */
  39. rc = FtpSetUser("loopback","anonymous","")             /* anon login  */
  40. say rc" "FtpSetUser" "FTPERRNO                         /* build message     */
  41. rc = FtpLogOff()
  42. say rc" "FtpLogOff" "FTPERRNO                          /* build message     */
  43. rc = FtpDropFuncs()
  44. say rc" "FtpDropFuncs" "FTPERRNO                       /* build message     */
  45. exit
  46.  
  47. Dave Rupp
  48. Texas Instruments
  49. Distributed Network Services
  50. Dallas, Texas  USA
  51. (214)575-4277
  52. (214)575-5522 FAX
  53. /ADMD=MCI/PRMD=TI/C=US/G=DAVID/I=M/S=RUPP
  54. drupp@ti.com  Text only
  55. dave@drupp.itg.ti.com Binary data, UUENCODE or Base64
  56. http://www.ti.com/
  57.  
  58.